/***************************************************************************************
Firm-embedded productivity and cross-country income differences
Alviarez, Cravino and Ramondo
Journal of Political Economy (2022)

Program: model_01_baseline.do
Date: October 2022

Description: Constructing the DA dummies (aggregate country effects) under the assumption that technology transfer costs have an origin-specific component

*****************************************************************************************/

*-------------------------------------------------------------------------------
set memory 64g
global lf "LF"

*Log
cap log close
*log using "${clogs}/model_09_exclexp.log", replace
*-------------------------------------------------------------------------------



*----------------------------------------------------------------------------------------------------------------
*Prepare the BASELINE for the regressions (baseline that only considers the firms with export information for the sample of countries for which ORBIS has export information)
*----------------------------------------------------------------------------------------------------------------
global typeden=1
include "set_directories.do"
global conditionforage ""
include "${cmain}/prep_01_forreg_exclexp.do"

local heading "baseline_exclexp"  
local varinterest sales
local timeframe `" "2016" "' 


if "`heading'"=="baseline_exclexp" {
*-----------------------------------------------------------
local ending "_exclexp" 
local zz naics  
local var0 "_`varinterest'" 
local name "_base" 
local name1 "_woparent" 
local samp=1  
local title "`zz'`var0'_s`samp'`name'`name1'`ending'"
display "`title'"

global ctryrel FR
local period "`timeframe'"
global nonmarket `" drop if sector1=="" "' 
global cont_firms `" keep if years_after2010>=0 "'
global cont_firms2 `" keep if years_allperiod>=0 "'
local absFEreg "guoFE"
global ind_var dist_sec* lang_sec* 
global guoFEonly=0 
global LHS "ln(sin`var0'`denominator')" 
global numctry `" keep if num_ctry>=0 "' 
global pctiles  `" keep if sin_sales>=0 "'  
global other_restr  `" keep if isocode!=hq "' 
global other_restr2  ""

}
*
display "`title'"
local affparent "0" /*"0" is the default, "1" if keeping even one affiliate after parents are dropped*/ 
include "${cmain}/reg_01_naics.do"

*Aggregating the sectoral estimates (Aggregate)
local weightsused_FR=0
local typeused "agg" 
include "${cmain}/reg_02_agg.do"

*Aggregating the sectoral estimates (Manufacturing, Services, and Others)
local typeused "type"
include "${cmain}/reg_02_agg.do"



*----------------------------------------------------------------------------------------------------------------
*Prepare the data for the regressions (excluding exports)
*----------------------------------------------------------------------------------------------------------------+
global typeden=0
include "set_directories.do"
display "`denominator'"
global conditionforage ""
include "${cmain}/prep_01_forreg_exclexp.do"

local heading "robust_exclexp"  
local varinterest sales
local timeframe `" "2016" "' 


if "`heading'"=="robust_exclexp" {
*-----------------------------------------------------------
local ending "_exclexp" 
local zz naics  
local var0 "_`varinterest'" 
local name "_robust" 
local name1 "_woparent" 
local samp=1  
local title "`zz'`var0'_s`samp'`name'`name1'`ending'"
display "`title'"

global ctryrel FR
local period "`timeframe'"
global nonmarket `" drop if sector1=="" "' 
global cont_firms `" keep if years_after2010>=0 "'
global cont_firms2 `" keep if years_allperiod>=0 "'
local absFEreg "guoFE"
global ind_var dist_sec* lang_sec* 
global guoFEonly=0 
global LHS "ln(sin`var0'`denominator'_alt)" 
global numctry `" keep if num_ctry>=0 "' 
global pctiles  `" keep if sin_sales>=0 "'  
global other_restr  `" keep if isocode!=hq "' 
global other_restr2  ""

}
*
display "`title'"
local affparent "0" /*"0" is the default, "1" if keeping even one affiliate after parents are dropped*/ 
include "${cmain}/reg_01_naics.do"

*Aggregating the sectoral estimates (Aggregate)
local weightsused_FR=0
local typeused "agg" 
include "${cmain}/reg_02_agg.do"

*Aggregating the sectoral estimates (Manufacturing, Services, and Others)
local typeused "type"
include "${cmain}/reg_02_agg.do"


*log close


